Comix Games/Comix Games.iso/jetsons/jetsons.exe/jetsons.dxr/00051.ls

Text File | 1996-11-19 | 3.6 KB | 65 lines

on CheckForDropOFf
  global theFirstShipChannel, theFirstBuildingChannel, theLastBuildingChannel, theFirstPodChannel, theSecondPodChannel, theThirdPodChannel, theFourthPodChannel, theFirstHeadChannel, theLastHeadChannel
  repeat with h = theFirstBuildingChannel to theLastBuildingChannel
    if the memberNum of sprite h = the number of member "Drop Off 1" then
      if (the locH of sprite theFirstShipChannel > the left of sprite h) and (the locH of sprite theFirstShipChannel < the right of sprite h) then
        set the regPoint of member "family 1" to point(-200, -200)
        set the regPoint of member "Left family 1" to point(-200, -200)
        if the visible of sprite theFirstPodChannel <> 1 then
          puppetSound(1, "elroy")
          set the visible of sprite theFirstHeadChannel to 0
          set the locH of sprite theFirstPodChannel to the locH of sprite theFirstShipChannel
          set the locV of sprite theFirstPodChannel to the locV of sprite theFirstShipChannel
          set the visible of sprite theFirstPodChannel to 1
        end if
      end if
      return
      next repeat
    end if
    if the memberNum of sprite h = the number of member "Drop Off 2" then
      if (the locH of sprite theFirstShipChannel > the left of sprite h) and (the locH of sprite theFirstShipChannel < the right of sprite h) then
        set the regPoint of member "family 2" to point(-200, -200)
        set the regPoint of member "Left family 2" to point(-200, -200)
        if the visible of sprite theSecondPodChannel <> 1 then
          puppetSound(1, "judy")
          set the visible of sprite (theFirstHeadChannel + 1) to 0
          set the locH of sprite theSecondPodChannel to the locH of sprite theFirstShipChannel
          set the locV of sprite theSecondPodChannel to the locV of sprite theFirstShipChannel
          set the visible of sprite theSecondPodChannel to 1
        end if
      end if
      return
      next repeat
    end if
    if the memberNum of sprite h = the number of member "Drop Off 3" then
      if (the locH of sprite theFirstShipChannel > the left of sprite h) and (the locH of sprite theFirstShipChannel < the right of sprite h) then
        set the regPoint of member "family 3" to point(-200, -200)
        set the regPoint of member "Left family 3" to point(-200, -200)
        if the visible of sprite theThirdPodChannel <> 1 then
          puppetSound(1, "jane")
          set the visible of sprite (theFirstHeadChannel + 2) to 0
          set the locH of sprite theThirdPodChannel to the locH of sprite theFirstShipChannel
          set the locV of sprite theThirdPodChannel to the locV of sprite theFirstShipChannel
          set the visible of sprite theThirdPodChannel to 1
        end if
      end if
      return
      next repeat
    end if
    if the memberNum of sprite h = the number of member "Drop Off 4" then
      if (the locH of sprite theFirstShipChannel > the left of sprite h) and (the locH of sprite theFirstShipChannel < the right of sprite h) then
        set the regPoint of member "family 4" to point(-200, -200)
        set the regPoint of member "Left family 4" to point(-200, -200)
        if the visible of sprite theFourthPodChannel <> 1 then
          puppetSound(1, "astro1")
          set the visible of sprite (theFirstHeadChannel + 3) to 0
          set the locH of sprite theFourthPodChannel to the locH of sprite theFirstShipChannel
          set the locV of sprite theFourthPodChannel to the locV of sprite theFirstShipChannel
          set the visible of sprite theFourthPodChannel to 1
        end if
      end if
      return
    end if
  end repeat
end